home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Calvin&Hobbes.AMOS / Calvin&Hobbes.amosSourceCode
Encoding:
AMOS Source Code  |  1998-09-30  |  786 b   |  23 lines
  1. Set Buffer 100
  2. For A= Extension_8_174A("27-Sep-87") To Extension_8_174A("30-Sep-87")
  3.   YY= Extension_8_07F2(A)-1900
  4.   MM= Extension_8_0800(A)
  5.   DD= Extension_8_0810(A)
  6.   URL$="http://www.calvinandhobbes.com/strips/"+ Extension_8_0EB8(YY,2)+"/"+ Extension_8_0EB8(MM,2)+"/"
  7.   D$= Extension_8_0EB8(YY,2)+ Extension_8_0EB8(MM,2)+ Extension_8_0EB8(DD,2)
  8.   Print "ch"+D$+".html";
  9.   Trap Kill "ram:hurz"
  10. '  Exec "HTTPResume OVERWRITE "+URL$+"ch"+D$+".html ram:hurz RANGE -6144"
  11.   Exec "HTTPResume NODATE OVERWRITE "+URL$+"ch"+D$+".html ram:hurz"
  12.   Print ".";
  13.   XXX=Free
  14.   Open In 1,"ram:hurz"
  15.     I$=Input$(1,Lof(1))
  16.   Close 1
  17.   P=Instr(I$,"ch"+D$)
  18.   PP=Instr(I$,".gif",P)
  19.   N$=Mid$(I$,P,PP-P+4)
  20.   Print N$
  21.   Exec "Run HTTPResume NODATE OVERWRITE "+URL$+N$+" dh4:ch/ch"+D$+".gif"
  22. Next 
  23. Close 1